﻿Imports System.Drawing

Namespace ViewModel

    ''' <summary>
    ''' Represents a UI command-control with icon.
    ''' </summary>
    ''' <remarks>The icon's from Resources as System.Drawing.Bitmap.</remarks>
    Public Class IconicCommandViewModel
        Inherits CommandViewModel

        Public Sub New(ByVal name As String, ByVal icon As Bitmap, ByVal command As ICommand)
            MyBase.New(name, command)

            Me.CommandIcon = icon
        End Sub

        Private _commandIcon As Bitmap
        Public Property CommandIcon() As Bitmap
            Get
                Return _commandIcon
            End Get
            Set(ByVal value As Bitmap)
                _commandIcon = value
            End Set
        End Property

    End Class
End Namespace
